home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 6: Level 6 / 17 Bit - Level 6 (1998)(Epic Marketing)[!].iso / quartz / q0924.dms / q0924.adf / InstallSDMS < prev    next >
Text File  |  1992-10-23  |  2KB  |  87 lines
  1. ; Install SDMS
  2.  
  3. (set @default-dest "T:")
  4.  
  5. (transcript "Getting Location of SDMS Directory")
  6.  
  7. (set sdms_dir "Work:")
  8.  
  9. (if (NOT (exists sdms_dir (noreq)))
  10.    (set sdms_dir "Sys:")
  11. )
  12.  
  13. (set sdms_dir
  14.    (askdir
  15.       (prompt
  16.       "SDMS requires 800K of free space on your disk. "
  17.       "Where would you like the SDMS directory installed?")
  18.       (help @askdir-help)
  19.       (default sdms_dir)
  20.    )
  21. )
  22.  
  23. (if (NOT (exists (tackon sdms_dir "SDMS")(noreq)))
  24.    (
  25.    (copyfiles
  26.       (source "SDMS:disk.info")
  27.       (dest sdms_dir))
  28.    (tooltype
  29.       (dest (tackon sdms_dir "SDMS"))
  30.       (noposition))
  31.    (makedir (tackon sdms_dir "SDMS"))
  32.    )
  33. )
  34.  
  35. (set sdms_dir (tackon sdms_dir "SDMS"))
  36.  
  37. (set @default-dest sdms_dir)
  38.  
  39. (transcript "Installing SDMS Program")
  40.  
  41. (copyfiles
  42.    (prompt "Installing SDMS program.")
  43.    (help @copyfiles-help)
  44.    (source "SDMS:SDMS")
  45.    (infos)
  46.    (dest sdms_dir)
  47. )
  48.  
  49. (transcript "Installing SDMS ReadMe Files")
  50. (copyfiles
  51.    (prompt "Installing SDMS ReadMe Files.")
  52.    (help @copyfiles-help)
  53.    (source "SDMS:SDMS.guide")
  54.    (infos)
  55.    (dest sdms_dir)
  56. )
  57.  
  58. (transcript "Installing SDMS ReadMe Files")
  59. (copyfiles
  60.    (prompt "Installing SDMS ReadMe Files.")
  61.    (help @copyfiles-help)
  62.    (source "SDMS:DMS.TXT")
  63.    (infos)
  64.    (dest sdms_dir)
  65. )
  66.  
  67. (transcript "Installing SDMS data files.")
  68.    (copyfiles
  69.    (prompt "Installing SDMS data files.")
  70.    (help @copyfiles-help)
  71.    (source "SDMS:Assigner")
  72.    (infos)
  73.    (dest sdms_dir)
  74. )
  75.  
  76. (transcript "Installing SDMS data files.")
  77.    (copyfiles
  78.    (prompt "Installing SDMS data files.")
  79.    (help @copyfiles-help)
  80.    (source "SDMS:DMS")
  81.    (infos)
  82.    (dest sdms_dir)
  83. )
  84.  
  85. (transcript "Installation Completed")
  86. (exit "SDMS installation completed")
  87.